home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch12 / dest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-08  |  2.0 KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form frmDest 
  3.    BackColor       =   &H0000FFFF&
  4.    Caption         =   "The DEST Program"
  5.    ClientHeight    =   2550
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7185
  9.    Height          =   2955
  10.    Icon            =   DEST.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2550
  14.    ScaleWidth      =   7185
  15.    Top             =   1140
  16.    Width           =   7305
  17.    Begin TextBox txtFromSource 
  18.       Height          =   855
  19.       Left            =   240
  20.       MultiLine       =   -1  'True
  21.       ScrollBars      =   3  'Both
  22.       TabIndex        =   2
  23.       Top             =   600
  24.       Width           =   6735
  25.    End
  26.    Begin CommandButton cmdLink 
  27.       Caption         =   "&Link"
  28.       Height          =   855
  29.       Left            =   1440
  30.       TabIndex        =   1
  31.       Top             =   1560
  32.       Width           =   1215
  33.    End
  34.    Begin CommandButton cmdExit 
  35.       Caption         =   "E&xit"
  36.       Height          =   495
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   1920
  40.       Width           =   1215
  41.    End
  42.    Begin Label Label1 
  43.       Alignment       =   2  'Center
  44.       BackColor       =   &H0000FFFF&
  45.       Caption         =   "The following text came from SOURCE.EXE:"
  46.       FontBold        =   -1  'True
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   13.5
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   375
  53.       Left            =   360
  54.       TabIndex        =   3
  55.       Top             =   120
  56.       Width           =   6615
  57.    End
  58. Option Explicit
  59. Sub cmdExit_Click ()
  60.     End
  61. End Sub
  62. Sub cmdLink_Click ()
  63.     ' Set the topic
  64.     txtFromSource.LinkTopic = "SOURCE|Dummy"
  65.     ' Set the item
  66.     txtFromSource.LinkItem = "txtToDest"
  67.     ' Establish DDE
  68.     txtFromSource.LinkMode = 1
  69. End Sub
  70.